home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)d18.d64 / muppet twist (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  1KB  |  51 lines
  1. 9 IFA>0THEN220
  2. 10 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  3. 11 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  4. 12 PRINT" [154]THIS PROGRAM COULD NOT TELL WHAT DRIVE"
  5. 13 PRINT"   TO LOAD THE FILES FROM ! "
  6. 14 PRINT"                          -: ]>UG"
  7. 15 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  8. 16 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  9. 20 PRINT"[151]  NOW IT CAN HIT ANY KEY.....[129]"
  10. 90 DV=PEEK(186)
  11. 100 IFA>0THEN220
  12. 110 POKE53280,0:POKE53281,0
  13. 120 PRINT"[145][145][145] 'MUPPET TWIST' MINI MOVIE BY KOVARSKI"
  14. 130 PRINT"         MUSIC: TWIST AGAIN "
  15. 140 PRINT" SHORT INSTRUCTIONS-"
  16. 150 PRINT"  PRESS 'S' TO SLOW DOWN MOVIE"
  17. 160 PRINT"  PRESS 'F' TO SPEED UP MOVIE"
  18. 170 PRINT"  (YOU MAY HAVE TO PRESS THEM"
  19. 180 PRINT"   REPEATEDLY TO CHANGE SPEED)
  20. 190 [153]"  PRESS RUN/STOP & RESTORE TO QUIT
  21. 200 PRINT" PLEASE WAIT (7 FILES TO LOAD)..."
  22. 210 S$=" LOADING FILE NUMBER "
  23. 220 REM
  24. 230 ONAGOTO250,260,270,280,290,300,370
  25. 240 A=A+1:PRINTS$;"1,";:LOAD"TWIST",DV,1
  26. 250 A=A+1:PRINT"2,";:LOAD"M1",DV,1
  27. 260 A=A+1:PRINT"3,";:LOAD"M2",DV,1
  28. 270 A=A+1:PRINT"4,";:LOAD"M3",DV,1
  29. 280 A=A+1:PRINT"5,";:LOAD"M6",DV,1
  30. 290 A=A+1:PRINT"6," :LOAD"M5",DV,1
  31. 300 PRINT"            ALMOST DONE! "
  32. 310 PRINT"   THE NEXT FILE WILL OVERWRITE TEXT "
  33. 320 PRINT"     PRESS ANY KEY TO CONTINUE [145]":FOR I=1 TO 200: NEXT
  34. 330 PRINT"    [146] PRESS ANY KEY TO CONTINUE [145]":FOR I=1 TO 200: NEXT
  35. 340 GETA$:IFA$="" THEN320
  36. 350 PRINT"[147]"
  37. 360 A=A+1:LOAD"M4",DV,1
  38. 370 REM
  39. 380 SYS 20480: REM START MUSIC
  40. 390 POKE53265,59:POKE53272,29
  41. 400 PRINT""
  42. 410 D=-1:K=6
  43. 420 P=199
  44. 430 POKE56576,P
  45. 440 FORA=1TOK
  46. 450 GETQ$:IFQ$="F"THENK=K-1:GOTO450
  47. 460 IFQ$="S"THENK=K+1
  48. 470 NEXT
  49. 480 P=P+D:IF(P<197)OR(P>199)THEND=-D:GOTO480
  50. 490 GOTO430
  51.